home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / pascal / keymakr.exe / KEYTOOLS.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-10-08  |  1.4 KB  |  45 lines
  1. UNIT KeyTools;
  2.  
  3. INTERFACE
  4.  
  5. CONST
  6.    ExtractSet : set of char = ['.','#','''','"','-'];
  7.    NumberSet : set of char = ['0','1','2','3','4','5','6','7','8','9'];
  8.  
  9. TYPE
  10.    WordTblType = array [1..50] of string[8];
  11.  
  12. var
  13.    WordTbl : ^WordTblType;
  14.    WordTblEnd : byte;
  15.    InString : String;
  16.  
  17. FUNCTION InTable(VAR Fword;VAR Stable; tsize: integer) : Boolean;
  18. { Do a binary search for the word Fword from table STable which contains
  19.   TSize elements.  If the word exists in the table return True, else
  20.   return False.                                                           }
  21.  
  22. FUNCTION less(x, y : integer) : integer;
  23. { Return whichever is less x or y                                         }
  24.  
  25. FUNCTION ExtractChar(InStr : string) : string;
  26.  
  27. PROCEDURE ParseString(var InString: String);
  28. { Pull the words from the input string (InString) and place them, in order
  29.   into the table pointed at by WordTbl.  If there is an '|' in the line
  30.   do not parse past it.  This allows for comments in the name or address
  31.   line.                                                                    }
  32.  
  33. PROCEDURE StripWord(Which : Byte);
  34. { Remove the word pointed at by 'Which' from the table WordTbl.            }
  35.  
  36. FUNCTION Soundx(word : string; cnt : integer) : string;
  37.  
  38. function extword(wordnum : byte; instr : string) : string;
  39.  
  40. function CntWord(InStr : string) : Integer;
  41.  
  42. Function Upper(Str:string):string;
  43.  
  44. IMPLEMENTATION
  45.